countofriots <- read.csv("~/Documents/Political Competition/Revisions/Tables for ppr/countofriots.csv")
bar<- barplot(countofriots$Count.of.riots,names.arg=countofriots$year, xlab="Year", ylab="Incidents", main="Count of Riots", col=colors()[216], ylim=c(0,200), space=0.5, xaxt='n', cex.axis=.75)
axis(side=1, at=bar, labels=countofriots$year, cex.axis=.75, tck=-0.02)
